home *** CD-ROM | disk | FTP | other *** search
/ Zoom 1 / Zoom (1995)(Active Software, Ground Zero).iso / utils / u605.dms / u605.adf / Install.Me < prev    next >
Text File  |  1994-09-28  |  4KB  |  178 lines
  1. (transcript "Installing DreamTerm...")
  2.  
  3. (set @default-dest "SYS:")
  4.  
  5. (set #bad_kick "You must be using KickStart 3.0+ to use DreamTerm!")
  6. (set #dterm13_msg
  7. (cat "\nConfig file format changed after 1.3 and support for "
  8.      "automatic conversion is now removed. You should delete DT_current & "
  9.      "DT_config files and reconfigure everything."
  10. ))
  11.  
  12. ;----------------------------------------------------------------------------
  13.  
  14. ; Running under V39?
  15.  
  16. (if (< (/ (getversion) 65536) 39)
  17.   (
  18.     (abort #bad_kick)
  19.   )
  20. )
  21.  
  22. ; Copy program files & documentation etc...
  23.  
  24. (set destination
  25.   (askdir
  26.     (prompt "Please select a place for the DreamTerm. A sub drawer called \"DreamTerm\" will be created here.")
  27.     (help @askdir-help)
  28.     (default "SYS:")
  29.     (newpath)
  30.   )
  31. )
  32.  
  33. (set @default-dest (tackon destination "DreamTerm"))
  34.  
  35. (makedir destination)
  36. (makedir (tackon destination "DreamTerm"))
  37. (makedir (tackon destination "DreamTerm/Character sets"))
  38. (makedir (tackon destination "DreamTerm/Conversion tables"))
  39. (makedir (tackon destination "DreamTerm/Phonebooks"))
  40. (makedir (tackon destination "DreamTerm/Protocols"))
  41. (makedir "FONTS:Antique")
  42. (makedir "FONTS:DT_IBM01")
  43. (makedir "FONTS:DT_IBM02")
  44. (makedir "LIBS:compressors")
  45.  
  46. (copyfiles
  47.   (source "BugReport.txt")
  48.   (dest (tackon destination "DreamTerm"))
  49.   (infos)
  50. )
  51.  
  52. (copyfiles
  53.   (source "DreamTerm")
  54.   (dest (tackon destination "DreamTerm"))
  55.   (infos)
  56. )
  57.  
  58. (copyfiles
  59.   (source "DreamTerm.guide")
  60.   (dest (tackon destination "DreamTerm"))
  61.   (infos)
  62. )
  63.  
  64. (copyfiles
  65.   (source "Help.guide")
  66.   (dest (tackon destination "DreamTerm"))
  67.   (infos)
  68. )
  69.  
  70. (copyfiles
  71.   (source "ReadMe.txt")
  72.   (dest (tackon destination "DreamTerm"))
  73.   (infos)
  74. )
  75.  
  76. (copyfiles
  77.   (source "PhoneBooks/NewUser.pb")
  78.   (dest (tackon destination "DreamTerm/PhoneBooks"))
  79. )
  80.  
  81. (copyfiles
  82.   (source "FONTS/Antique.font")
  83.   (dest   "FONTS:")
  84. )
  85. (copyfiles
  86.   (source "FONTS/DT_IBM01.font")
  87.   (dest   "FONTS:")
  88. )
  89. (copyfiles
  90.   (source "FONTS/DT_IBM02.font")
  91.   (dest   "FONTS:")
  92. )
  93. (copyfiles
  94.   (source "FONTS/Antique/8")
  95.   (dest   "FONTS:Antique")
  96. )
  97. (copyfiles
  98.   (source "FONTS/DT_IBM01/8")
  99.   (dest   "FONTS:DT_IBM01")
  100. )
  101. (copyfiles
  102.   (source "FONTS/DT_IBM02/8")
  103.   (dest   "FONTS:DT_IBM02")
  104. )
  105.  
  106. (copyfiles
  107.   (source "Conversion tables/ISO->ISO_capture.ct")
  108.   (dest (tackon destination "DreamTerm/Conversion tables"))
  109. )
  110. (copyfiles
  111.   (source "Conversion tables/ISO->SF7.ct")
  112.   (dest (tackon destination "DreamTerm/Conversion tables"))
  113. )
  114. (copyfiles
  115.   (source "Conversion tables/ISO->SF8.ct")
  116.   (dest (tackon destination "DreamTerm/Conversion tables"))
  117. )
  118. (copyfiles
  119.   (source "Conversion tables/NoConversion.ct")
  120.   (dest (tackon destination "DreamTerm/Conversion tables"))
  121. )
  122. (copyfiles
  123.   (source "Conversion tables/SF8->ISO.ct")
  124.   (dest (tackon destination "DreamTerm/Conversion tables"))
  125. )
  126. (copyfiles
  127.   (source "Conversion tables/SF8->ISO_capture.ct")
  128.   (dest (tackon destination "DreamTerm/Conversion tables"))
  129. )
  130.  
  131. (complete 33)
  132.  
  133. ; Copy libraries
  134.  
  135. (foreach "LIBS" "#?.library"
  136.   (copylib
  137.     (prompt "Installing library: " @each-name)
  138.     (source (tackon "LIBS" @each-name))
  139.     (help @copylib-help)
  140.     (dest "LIBS:")
  141.     (confirm)
  142.   )
  143. )
  144.  
  145. (foreach "LIBS/compressors" "#?.library"
  146.   (copylib
  147.     (prompt "Installing library: " @each-name)
  148.     (source (tackon "LIBS/compressors" @each-name))
  149.     (help @copylib-help)
  150.     (dest "LIBS:compressors")
  151.     (confirm)
  152.   )
  153. )
  154.  
  155. (complete 66)
  156.  
  157. ; Copy config files
  158.  
  159. (if (askbool (help @askbool-help) (prompt "Do you want to install default config files? This will override your old settings! However default phonebook and droplist will be left alone."))
  160.  
  161.   (foreach "" "DT_config.#?"
  162.     (copyfiles
  163.       (prompt "Installing configuration files...")
  164.       (source (tackon "" @each-name))
  165.       (help @copyfiles-help)
  166.       (dest (tackon destination "DreamTerm"))
  167.     )
  168.   )
  169. )
  170.  
  171. (complete 99)
  172.  
  173. (if (exists (tackon destination "DreamTerm/DT_config")) (message #dterm13_msg) )
  174.  
  175. (complete 100)
  176.  
  177. (exit "Done! Just run and fun...")
  178.